RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


**F ILE®*1D**PUTNDX if 


PPPPPPPP UU UU TTTTTTTTTT NN NN DDDDDDDD XK XX 

PPPPPPPP UU UU TTTTITTTTT NN NN DDDDDDDD XX XX 

PP PP UU UU TT NN NN DD DD Xx XX 

PP PP UU UU TT NN NN DD DD XX XX 

PP PP UU UU TT NNNN NN DD DD XX = XX 

PP PP UU UU TT NNNN NN DO DD XX XX 

PPPPPPPP UU UU TT NN NN NN DD DD XX 

PPPPPPPP UU UU TT NN NN NN DD DD XX 

PP UU UU TT NN NNNN DD DD XX XX 

PP UU UU TT NN NNNN DD DD XX = XX 

PP UU UU TT NN NN DD DD XX XX cece 
PP UU UU TT NN NN DD DD Xx XX ees 
PP UUUUUUUUUU TT NN NN DDDDDDDD XX XX eeee 
PP UUUUUUUUUU TT NN NN DDDDDDDD XX XX cece 
LL IIIII] SSSSSSSS 

LL III] SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] $s 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL III] SSSSSSSS 

LLLLLLLLLL W111] SSSSSSSS 


EEE ae — rc 


oe iesSeectage C4:39:48  YARGH OLSs8SHE wt Oo7 


MODULE PUTNDX ( DENT 5 "v04-000' 
$$32 C , ADDRESSING_MODE ( EXTERNAL = LONG_RELATIVE 
NONEXTERNAL = LONG” “RELATIVES J 
= 
BEGIN 


PETITIIITILILLLI TLL LLL LLL LLL LLL LLL LLL LLL LLL LLL LLL 
'e 
'‘® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 
os ALL RIGHTS RESERVED. 

it re i ierhe is FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'w ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS S$ 

'® Sd de bs dl MAY NOT BE PROVIDED OR Nae iad MADE AVAILABLE TO ANY 


® 

as 

® 

® 

. 

® 

® 

® 

® 

® 
TRANSFERRED. 
!® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
'® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
!t CORPORATION. * 
= 

® 

® 

® 

a 

* 


'® DIGITAL ASSUMES NO RESPONS 
'® SOFTWARE ON EQUIPMENT WHIC 
it 
i eeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eee eee eeee eee eeeeeeeeeeeeeeeeeeeeeeeeeees 
i 


BILITY FOR THE USE OR RELIABILITY OF ITS 


IBILITY 
H IS NOT SUPPLIED BY DIGITAL. 


i¢4 
} FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
i ABSTRACT: Routines to save index information in a file. 


! 

' 

i 

ENVIRONMENT: Transportable 

AUTHOR: R.W.Friday CREATION DATE: February, 1979 
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18-Sen-1984 04:39:48 AX-11 Bliss-32 V4.0-74 Page 2 


Revision History RUNOFF .SRCJPUTNDX.BLI; (2) 


; 40 1 XSBTTL ‘Revision History’ 

3 tg 41 1! 

?-S tg 1 ! MODIFIED BY: 

; 6464 045 1! 

3; 6465 044 1! 015 KFA00015 Ken Alden 19-Jul-1983 

; r* 0045 1! Conditionalized the internal logic errors to check for 

; 6 98 2 3 /AUTO conditions. 

s 68 0047 1! 

; 649 BRe8 1! y 

; 50 0049 1! Restored lost information written to the .BFL file for FLIP 
: 51 Bpeo : } output. 

3 2g 0054 1! 013 KAD00013 Keith Dawson 11-April-1983 

: 54 0055 1! Added support for new termination orrer messages for 

; 55 0054 1! information written to .BRN file. This — ved i 

s % 0055 1! another formal to the RGH routine; this third formal is 

a Se 0056 1! TRUE or FALSE, as the caller determines anber or not to 
3 28 itd ! increment the count of information written to the .BRN file. 
; 60 0059 1! 012 KAD00012 Keith Boysen 23-March-1983 

; 6) BR00 ; Changed GCA_FLIP bit to (.gca_op_dev EQL op_dev_flip). 

3 88 BR06 1! 011 KAD00011 Keith Dawson 20-Mar-1983 

; 664 0063 1! Removed LNO1 sendtataaste and all references to .BIX 

3.60 (CSS 0064 1! and .BIC files. 

: 666 0065 1! 

: 67 0066 1! 010 AD00010 Keith Dawson 07-Mar-1983 

s 68 0067 1! Global edit of all modules. Updated module names, idents, 

:; 69 0068 1! copyright dates. Changed require files to BLISS library. 
Ro BR 


| 
014 KAD00014 Keith Dawson 18-May-1983 
| 
| 
| 


————__———— 


check open = 
IF FLIP ZTHEN 
{IF ‘-9c@_op_dev EQL op_dev_flip) 
-fnoiob CIOB$V_OPEN) 
-brnoob CIOB$V_OPEN]) 


(.brnoob CIOB$V_OPEN]) 


WnN—o 


ZELSE 
aFI 


M10 

16-Sep-1984 01:29:4 AX-11 Bliss-32 V4.0-74 Pp Pi 

ther tien Module Level Declarations 12-808= 1382 a Sa RUNOFF .SRCJPUTNDX.BLI; ~— (33 Vi 
t? ore RSBTTL ‘Module Level Declarations’ ; 
75 7 i TABLE OF CONTENTS: : 
6 07 ! 3 
7 7 $ 
78 0 3 
79 0 FORWARD ROUTINE : 
80 0 PUTNDY : NOVALUE, : 
81 0 PUTXTN : NOVALUE, ; 
Be RGH : NOVALUE; : 
84 1 i INCLUDE FILES: : 
6 ae 
87 15] LIBRARY ‘NXPORT:XPORT*; ! XPORT Library : 
89 u 021 ZIF DSRPLUS XTHEN : 
90 U IBRARY "REQ:DPLLIB’; ! DSRPLUS BLISS Library ; 
3 2 LIBRARY "REQ:DSRLIB'; ! DSR BLISS Library ; 
94 : 
95 ! 3 
96 i MACROS: : 
97 ! $ 
98 MACRO : 
o9 : 


-eEPEREE EE Fj 
SOOOOOOSOOOSSOOCOOSOSOOOOSOSOSSOSSOSOSSOOCSCOOCCOOOOOOCOOOOOOOOOCOOOOOCOOOOOO 


PIPSPIPIPINDPIPAININIPININY/IPYININNIPYNININIPINPIPYPINPIPINPIPIPUNIPONOPyNy 


PUPP I B® Be BS BB EEE EWI inononon 


EQUATED SYMBOLS: 


' 
i 
; 
| OWN STORAGE: 
i 
i EXTERNAL REFERENCES: 
EXTERNAL 


RNOIOB : REF $XPO_I0B (), 
BRNOOB : $XPO_10B7(); 


EXTERNAL 
ca : gca_definition, 
sf : tsf definition; 
EXTERNAL LITERAL ‘Error messages 


REQUIRE 'REQ:RNODEF REQ’; ! RUNOFF definition 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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NOME WIN 9 OOO UE WIN 9 OODNOA UE WIN — O OONOAOU FS WN OO OONOAUE UN)" OVWONOUS 


MUNN s sooo eam aoosSseeessses 


kk dd td 
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yOu~000 Module Level Declarations 
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1erSep-198e 15:67:49 ERUNOFFeSRESPUTNDX-BLIs spe 


vt 


4 
PUTNDX 16-5e =1984 129:4 AX=-11 Bliss-32 V4.0=-74 P 5 
v04-000 Module Level Declarations ees rat bee Ct eg Pa wx: 


; } 5 ° ! GLOBAL ROUTINE PUTNDY (ENTRY_LENGTH, ENTRY_ADDRESS, XTN, BAR_FLAG) : NOVALUE = ! ; 
4 ; 64 1 !+4 ; 
; : 3 92 : FUNCTIONAL DESCRIPTION: : 
3 179 0 ef ! PUTNDY writes an index entry to the index file. : 
; 196 0 4 1 ! FORMAL PARAMETERS: 3 
3 146 0270 1! : 
; 144 0271 1! ENTRY_LENGTH is the number of bytes representing the entry. . 
3 345 0 i 1} ENTRY_ADDRESS is the address of the entry. : 
: 148 8 mm 2s XTN is ghe associated transaction number. : 
3 ian 8 fe ! BAR_FLAG is the change-bar flag. : 
; 149 0 rg 1 ! IMPLICIT INPUTS: None : 
; 150 Oe77 1! 3 
; 391 0278 1 ! IMPLICIT OUTPUTS: None ; 
; 13 0279 1! : 
; 19 0280 1 ! ROUTINE VALUE: : 
; «154 0281 1 ! COMPLETION CODES: None 

3 330 0 8 7 | 

; 156 0285 1 ! SIDE EFFECTS: None 

; 337 0284 1! 

; 158 BS 1 !e- 

; 159 0286 1 

; 160 S444 2 BEGIN 

3 ei 8 8 

3 196 0289 LOCAL 

; 46 0290 temp record : VECTOR (3); 

: 164 U 8 91 SIF FLIP XTHEN 

; 165 U 38 LOCAL 

; «166 U 029 flip_record : $flip_tcxtxt; 

: 167 0294 XFI 

; «168 0295 

3; «6169 0296 'Cursory check to make sure the file is opened. 

: 170 0297 IF NOT check_open 

; 6 (171 0298 THEN 

3 v6 5444 BEGIN 

.— az, 0300 IF NOT .gca_black_box 

s 176 0301 THEN 

3: 175 Oa06 erms (rnfile, CHSPTR (UPLIT (‘putndy')), 6); 

s; 17% 030 RETURN; 

: 177 0304 END; 

: «178 $02 

3; 179 06 'If there is no index entry to write, just return. Note that this 

; 180 307 ‘can happen if the user says, for Sxemp ie. "x3", which is a valid 

; 18) tt 'RUNOFF command but causes nothing to happen in the index. 

; 13g 4 IF .entry_length LEQ 0 

; 18 10 THEN 

3; 184 311 RETURN; 

: «185 \¢ 

; 186 U 031 XIF FLIP XTHEN 

3; «187 U 0314 IF (.gca_op_dev EQL op_dev_flip) 

: «188 U 0315 THEN 

; ia U 18 OFGIN 

; 190 U 031 flip_record (tcxtxt_code] = flipSk_tcxtxt; 

; («191 U 0318 flip_record [tcxtxt_length] = .entry_length; 


4 


11 
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Module Level Declarations -Sep-1 RUNOFF. PUTNDX.BLI; (4) 


flip_record peeatatagtn = .xtn; 

flip record [tcxtxt_bar] = .bar_flag; 

ylength, CHSPTR (.en Cy eeerese?. 
p_record(tcxtxt_textJ)); 


— 
—Owo 


entnevs (.en 

CHSPTR ( 

$XxPO #1 ( I -rnoiob, STRING= (flip$k_tcxtxt_basesiz+.entry_length, 
CHSPTR ( 


tr 
fl 
OB= 

flip_record))); 


cccecccccecce 


SOOOCCOCOCOCCOOCOCOCO COCO OOC OOOO OCOOOOOOOoOoOoOOo 
WWWWANWNNIAAA WWW WWANWWANNNNANAA ANNAN 


DVS BS BS BB BE BE EWI WII rronopopononororenrn) 


RETURN 
END; 
<F I 
! Write the Record Group Header for this NDX record. The length of the 
' described record is 4 plus the allocation of the text. 


! Do count this record in the .BRN count. 
rgh (brn_index, 4 + ch$allocation (.entry_length), true); 


CODOOOCOONOOOOO 


ooo 
SSLESRENLSSSLSSGE 


'Create a one-word descriptor record, 
TEMP_RECORD [OJ = INDEX_ENTRY; 'This says what comes next. 


‘Write ¢ 


scriptor toons 117208 what is about to come as an index entry. 
$XPO_PU B IN 


OB = BRNOOB, BINARY_DATA = (1, TEMP_RECORD)); 


e 
I 
a criptor record for this entry. 
D = .ENTRY_LENGTH; 

D = .XTN; 

D = .BAR_FLAG; 

: descriptor record 

h 

B 


‘Write ou f 
= BRNOOB, BINARY_DATA = 


$XPO_PUT 


'Write ou index entry, 
$XPO_PUT (1 = BRNOOB, BINARY_DATA = (CHSALLOCATION (.ENTRY_LENGTH), .ENTRY_ADDRESS)); 


END; 'End of PUTNDY 


the or this entry. 
10 (3, TEMP_RECORD)); 
the 

0 


POPIPEPIPIPNYPIPININIPININIPININIPININININNNNINNN ee 


POMOMPONINININYDS Ss SS SS 
FUR O DONA UE WN“ OOONAUE AN" OOVONOULS wry 


NOUS WN—OOONOUSWN—O 


nN 


.TITLE PUTNDX 
“IDENT \V04-000\ 
<PSECT $PLIT$,NOWRT,NOEXE,2 
00 00 79 64 6E 74 75 70 00000 P.AAA: .ASCII \putndy\<0><0> ; 
.EXTRN RNOIOB, BRNOOB, GCA 
“EXTRN TSF, RNFILE, ERMS 
“EXTRN XPO$PUT, XPOSFAILURE 
.PSECT $CODE$,NOWRT,2 
.ENTRY PUTNDY, Save R2,R3,R4,R5,R6 ; 0262 


of 0002 XPOSPU 
i RR Reet 2 
EB OOO1A 


. 
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7 
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. 
oa 
. 
e 
7 
. 
. 
. 
. 
. 
. 
. 
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. 
. 
. 
e 
+ 
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ca 
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ao 
. 
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. 
+ 
a 
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a 
. 
a 
7 
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. 
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EE : 9297 


#20, SP 
BRNOOB+50, 2$ 
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16-Sep-1984 AX-11 Bliss-32 V4.0-74 P 
iter tien Module Level Declarations 12: ~Sep ~ 3B of: $349 RUNOFF .SRCJPUTNDX.BLI; md «as 
01 000000006 EF F9 : BL BC GCA+228, 1$ : 0300 : 
06 DD 1$: PUSHL #6 + 0302 : 
SHUR dines HRS Fa | chee 
000000006 EF 3 FB 4 CALLS #3, ERMS : : 
53 06 AC BO O008e 2 SVL ENTRY LENGTH, 3 : $889 
07 14 0004 BGTR a = : : ; 
01 DD 00048 38: PUSHL at : 0335 
33 03 «AS 9 004 MOVAB 3(R3), R2 : : 
04 ¢ 49 DIVL2 #4, R2 : ; 
04 A2 SF 0004C PUSHAB 4(R2) : ; 
01 oD OO4F PUSHL #1 : ; 
00000000V EF 03 FB 00051 CALLS 3, H ; F 
08 AE 03 pO 00058 MOVL #3, TEMP_RECORD + 0338 ; 
6E 04 80 005¢ MOVW #4, $IOBSOUTPUT + 0341 : 
¢ AE 02 OOSF MOVB eee 3] OesouTeuts : 3 
03 AE 01 90 00063 MOVB #1, $IOBSOUTP ; 
AE 08 AE 9E 90067 MOVAB TEMP_RECORD, YT OBSOUTPUT+4 ; 
64 oe 3 006C MOVAB $IOBSOUTPUT. 10B$+68 ; 
EB AG : 90 0006F OVB #7, 10B$+44 : 
5 Db 00073 PUSHL RS : 
7E 04 00075 CLRL. = (SP) : 
BC A& 9F 00077 PUSHAB 108 ; 
66 03 FB OOO7A CALLS #3, XPOSPUT : 
08 AE 53 00 9007D MOVL R3, TEMP_RECORD + 0344 
OC AE 0c AC 7D 00081 MOV XTN, TEMP_RECORD+4 > 0345 
6E 0C BO 00086 MOVW #12, SIOBSOUTPUT > 0349 
AE 02 90 00089 MOVB ss 2, $10BsouTPuT+ ; 
03 AE 01 90 0008D MOVB “ 10B$OUTP ; 
04 AE 08 AE 9E 00091 MOVAB TEMP _RECORD, ST OBSOUTPUT+4 ; 
64 6 3 00096 MOVAB $0BS0UTPUT 10B$+68 : 
EB AG g 9 90099 MOVB #7, I0BS+44 : 
5 DD 0009D PUSHL RS ; 
7E D4 0009F CLRL (SP) ; 
BC AG OF SO0A1 PUSHAB 19 ; 
66 03 rB OOA4 CALLS #3, XPOSPU F 
6E 52 04 AS 000A7 MULW3 #4. R2 $1 OBSOUTPUT : 0352 
02 AE 02 90 OO0AB MOVB We. $10BS0UTP TPUTS : 
03 AE 01 90 OOOAF MOVB #1. $IOBS$OUT ; 
04 AE 08 ac v0 0085 MOVL  ENTRY_ADD or sse "STossourput+s : 
64 7 : OB MOVAB $10 SUTP PUT, {0B$+68 ; 
EB AG BB MOVB , 10BS+44 : 
5 9D OOOBF PUSHL R ; 
7E 04 000C1 CLRL. = (SP) ; 
BC A& 9F 000C3 PUSHAB 1088 ; 
bb 03 FB 000C6 CALLS #3, XPOSPUT : 
04 0009 RET > 0354 


; Routine Size: 202 bytes, Routine Base: S$CODE$S + 0000 


: 228 


0355 1 


eS — —_ 7 —_— 


vO4~000 
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' 


GLOBAL ROUTINE PUTXTN (PAGE_REF, XTN) : NOVALUE = 
1+ 


'++ 
} FUNCTIONAL DESCRIPTION: 


PUTXTN writes a transaction-number/page-reference 
to the index file. 


' 

! 

i 

| FORMAL PARAMETERS: 
IMPLICIT INPUTS: 
IMPLICIT OUTPUTS: 
1 

! 

1 

1 

' 

' 


OOOCCoCoo 


WAAINIAIAI ANNAN NINWW NAINA AIANA NAAN 


COD NINN SINS SSO AA AAA OOOO 


CONAUES WN SO OONAUE WN CO OONAUS WN SOOO NAUES WI OOOND 


None 
None 
None 


i ROUTINE VALUE: 


' COMPLETION CODES: None 


i SIDE EFFECTS: None 


BEGIN 


Pp 
PAGE_REF : REF VECTOR CPAGE_SCT_SIZE]; 


OCAL 
TEMP_RECORD 
XIF FLIP XTHEN 


AL 
FLIP_LRECORD : SFLIP_TCXXTN; 


: VECTOR [1 + PAGE_SCT_SIZE]; 


cece 


Pee rn Pee COO 


IF NOT CHECK_OPEN 
THEN 


BEGIN 
IF NOT .gca_black_box 
THEN 


ERMS (RNFILE, CHSPTR (UPLIT ('PUTXTN')), 6); 
en 


Z1F FLIP XTHEN 
(.gca_op_dev EQL op_dev_flip) 


EN 
BEGIN 
e a one-word de 


'Creat 
FLIP_RECORDCTCXXTN_CO 
'Put : 


'Copy the page number 

incR’I FROM 8 TO PAGE 
VECTORCFLIP_RECORD 

FLIP RECORDCTCXXTN a 


FL 
IF 
TH 


BESS FWA NWN w 
COOOCCOCVOOOOOO OO OWWOOcmamcc 


= 
oo 
MEWN—o 


$s 

D 

transaction numbe 

40 XTN 


E-1 
5S 
IPSK_TCXXTN; 
=(FLTPSK_TCXXTN_SIZE 


$XPO-PUT (10B=.RNOT 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
; 
2FI 
ursory goect to make sure the file is opened. 


ccccccccccccce 


SURE EEE EERE 


749 red: Bliss-32 V4.0-74 
749 RUNOFF .SRCJPUTNDX.BLI; 


pair 


g0 
CTJ,.1] = .PAGE_REF C.1); 
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a2 


3 U 0413 CHSPTR(FLIP_RECORD))); 

3 : U 0414 RETURN 

3 U 0415 END; 

3 7i$ “FI 

: : ht ' Write the Record Groyp Header for Pit index record. The Length of the 
: 2 4) i described record is plus a SIZE. 

; 420 i Do not count this record int eo SER count. 

; $3 : 1 rgh (brn_index, 2 + page_sct wrt false); 

: 97 Oe f ‘Create a rr SOE Xho. record. 

: 28 8 : TEMP_RECORD (OJ) = INDEX_XTN ithis indicates what comes next 

; 00 4 § ‘Write the descriptor record. 

3 $03 be 8 $XPO_PUT (10B = BRNOOB, BINARY DATA = (1, TEMP_RECORD)); 

: 08 0429 ‘Put transaction mamper into the temporary record. 

3 $4 Be , TEMP_RECORD (OJ = .XTN; 

: 06 04 'Copy the page number in t 

3 07 Sag incR’ 1 F ROM ? TO PAGE ser. SIZE dO 

3 ; pie TEMP RECORD C.1J] = .PAGE_REF C.1 - 1); 

; 319 0436 $XPO_PUT (I10B = BRNOOB, BINARY_DATA = (1 + PAGE_SCT_SIZE, TEMP_RECORD)); 
: 312 04638 1 END; 'End of PUTXTN 


-PSECT S$PLITS,NOWRT ,NOEXE ,2 
00 00 4€ 54 58 54 55 50 00008 P.AAB: .ASCII \PUTXTN\<0><0> ; 


-PSECT $CODE$,NOWRT,2 


001¢ 00000 .ENTRY PUTXTN, Save R2,R3,R4 : 0356 
54 000000006 EF 9E 00002 MOVAB XPOSPUT, ; 
53 000000006 EF 9E 00009 MOVAB KPOSFAILURE, R3 ; 
52 000000006 EF 9 9019 MOV 10B$+68, ; 
SE 1¢ C2 0001 SUBL SP : 
1D FE A2 €8 OOO1A BLBS BRNOOB +50 1$ : 03 
7F 000000006 FF E 1g LBS A+228, $3 : 039 
6 BD 0 PUSHL : 039 
00000000 EF F 0 7 PUSHAB P.AAB : 
000000006 +§F DD 00 p PUSHL #RNFILE : 
000000006 EF 03 FB CALLS #3, ERMS : 
g4 A RET > 0392 
7E 6 70 B 1$: MOVQ #6, =(SP) : 0421 
1 DD 0 PUSHL # ; 
00000000v_ EF : F 4 CALLS #3, RGH : 
08 AE D 4 MOVL #2, TEMP_RECORD : 0434 
6E 4 48 MOVW #4, $IOBSOUTPUT : 0427 
3 AE 2 4 MOVB ue, $1OBSOUTPUT +2 ; 
AE 1 2 MOVB #1. $108 : 
4 AE 08 AE 9E 00 MOVAB TEMP_RECORD, $IOBSOUTPUT+4 : 


2 eed 


; Routine Size: 165 bytes, Routine Base: $CODE$ + OOCA 


| 
11 
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Vv “300 Module Level Declarations 107301 38¢ 93367545 RUNOFF ..SRC PUINDK.BL BLI 34 3} “ 
6 8 MOVAB $IOBSOUTPUT, 1088+68 : | : 
ca 6 Sous MOVB 1 10B$+44 : ; 
DD PUSHL 3 3 : 
p4 CURL, (SE) : : 
64 BF O08 Fe doves CALS), x : 
08 At 08 AC 09 ¢ mOvL xTN, Teh. URE CORD ; 0430 : 
5 04 BC41 DE 00074 28:  — MOVAL at REFCIJ, RO 3 ; 
08 AE4I Fe AO D 19 MOVE | aGER y, og EMP_RECORDLI ; : 
Rove #20, $108SoUTPUT ; 0436 : 
Te) ee : : 
04 A 08 AE 9 000 ; MOVAB TEMP RECORD, 1 $10Bs0yTPUT +4 ; ; 
6 GE 3E 0009 MOVAB $1oBSOUTPUT, 1 : ; 
eB OA O7 90 00096 MOVB $+44 : ; 
3 DD 0009A PUSHL : ; 
7E D4 0009C CLRL = =(SP) ; ; 
BC Ae 9F O009E PUSHAB 10B$ ; ; 
64 03 FB OOOAI CALLS #3, XPOSPUT : : 
04 OO0A4 3$: RET : 0438 : 


H 11 
TNDX 16-Sep-1984 01:29:49 AX-11 Bliss-32 V4.0-74 Page 11 

vO4~000 RGH == write a Record Group Header to the binar 19-80-1382 94:85:48 RUNOFF, RCIPUTNDX_BLI: ’ (6) 

: 316 439 1 XSBITL 'RGH -- write a Record Group Header to the binary file.’ 

: 1? v8 } GLOBAL ROUTINE RGH (HEADER, COUNT, INCREMENT_BRN_COUNT) : NOVALUE = 

; i$ tt8 1 !44 

3 18 ret } } FUNCTIONAL DESCRIPTION: 

: 0 445 1! RGH writes a .BRN ‘‘envelope’’ -- a Record Group Header -=- to the 

5 1 +78 1: binary file. This header describes the 19‘ Lowtng binary record 

: ¢ are 1! so that the utilities can skip over it if they do not need to 

. oe 448 1! interpret it. For example, the INDEX utility would skip over binary 

: ¢ 9) : data that the header identified as contents-related. 

3 6 Seat 1! RGH also increments the GCA counts of the information written to 

; Be 8g ! the .BRN file so that it can be reported, if requested, by RTERM. | 

$ $0 piee i FORMAL PARAMETERS: 

3 1 9628 1! HEADER describes what kind of record follows. It is either 

4 338 oe t4 : BRN_INDEX (=1), BRN_CONTENTS (=2), or BRN_CROSSREF (=3). 

; $¢ #4 : COUNT is the Length of the following binary record group. 

3 336 0461 1! INCREMENT_BRN_COUNT is TRUE if we should bump the count of items 

3 357 0462 1! written to the .BRN file, and FALSE if not. Thus, it is the 

; ioe 0465 1! responsibility of the caller to determine whether this item 

; 359 0464 1! written to the .BRN should be counted. 

: 340 0465 1! 

3; (541 0466 1 ! IMPLICIT INPUTS: None 

: 34g 0467 1 i | 

; «34 0468 1 ! IMPLICIT OUTPUTS: None 

: 344 0469 1! 

3; «345 0470 1 ! ROUTINE VALUE: 

: 346 0471 1 ! COMPLETION CODES: None 

3; 347 0472 1! 

3 48 047 1 ! SIDE EFFECTS: None 

: 349 0474 1! | 

s 3550 0475 1 !-- 

3 33) 0476 2 BEGIN 

3 25 0477 § 

; 5 0478 LOCAL 

> 354 0479 2 temp_record : VECTOR (2); 

s 399 0480 ‘ 

$ 56 0481 ! cursory check to make sure the file is opened. 

g Sor bess IF NOT check_open 

; 358 4 THEN 

: 59 0484 BEGIN 

; $9 Be 5 Ud NOT .gca_black_box 

3 $6 4 erms (rnfile, CHSPTR (UPLIT ("RGH')), 3); 

; 36 488 RETURN; | 

3 364 489 END; 

; 365 a : 

: 366 491 ' Create a two-word descriptor record. 

: 367 49 temp_record £9) = ,header; 

; of rt temp_record [1] = .count; 

; $ 0495 ! Now really write the Record Group Header. | 
| 


nciatatnemeantaasanpaniainhen > 


$ep-1984 749 AX-11 Bliss-32 V4.0-74 ° 1 
RGH == write a Record Group Header to the binar 1b-te Het 7 9}: 89; 749 RUNOFF .SRCJPUTNDX.BLI; — (a5 | 
; q) 136 $SXPO_PUT (10B = brnoob, BINARY_DATA = (2, temp_record)); 

: i 498 ' If requested by the cotter, increment the count of the information 

: if P44 written to the .BRN file 

: 8 501 if .increment brn_count 

: ate 208 THEN ELECTONE header OF 

5 eader 

; 379 0504 ET 

; 380 0505 brn_index] : gca_index_cnt = “gee. index_cnt + 1; 

: Jel 238 brn-contents) : gca_contents_cnt = .gca_contents cnt + 1; 

: 3B BE hethenamteemadt Hg f f_ent {ent ¢ 1s 

: rn crossref] : ca_new_cref_cnt = .gca_new_cref_cn : 

:  3BG 8809 5 FI we — 

; 385 0510 TES; 

; 386 0511 

3 6387 B21§ RETURN; 

; 388 051 END; 'End of RGH 


~PSECT S$PLITS,NOWRT,NOEXE,2 
00 48 47 52 00010 P.AAC: .ASCII \RGH\<0> : 


«PSECT S$CODES,NOWRT,2 


001¢ 00000 .ENTRY RGH, Save R2,R3,R4 : 0440 
54 000000006 EF 9E 00002 MOVAB GCA+228, R4 : 
53 000000006 EF 9E 00009 MOV BRNOOB+48, R3 ; 
SE 19 C 90019 SUBL P : 
19 02 a3 €E8 0001 LBS BRNOOB*50 + 0482 
64 64 €8 00017 LBS GCA+2e 8, $s" + 0485 
03 DD OOOIA PUSHL # : 0487 
00000000° EF 9F 0001C PUSHAB P.AAC : 
000000006 8F DD 00 é PUSHL #RNFILE : 
000000006 EF 03 FB 000 CALLS #3, ERMS F 
04 0002F RET t 0484 
52 04 ag DO 00030 1$: MOVL HEADER + 0492 
08 AE 52 D 00 MOVL 2, TEMP REECOR D : 
OC AE 08 AC DO 00038 MOVL ¢ ONT TEMP | RECORD+4 > 0493 
6E 8 80 p MOVW , SLOBSOUTPUT + 0496 
02 AE 4 MOVB ; $1ossourPUt. : 
03 AE 1 90 00044 MOVB le 10B$OU : 
04 A 08 AE 9E 00048 MOVAB paRECORD, PS TOBSOUTPUT+4 : 
“ 4 6 3 4D MOVAB tie * 10B$+68 ; 
4 07 9 1 MOVB : 
000000006 i OF 00 5 PUSHAB Gialttiat ; 
D4 B CLRL : 
000000006 EF DO 03 FB 90000 CALLS, #5, XPOSPU 
5 oc A £5 7 BLBC TNEREMENT-BRN_COUNT, 38 : 0501 
01 52 D1 B CMPL = R2, #1 : 0505 
0 te 6 BNEQ ; 
FF7C 6C4 «(D6 00 INCL  GCA+96 : 


Sam —E — — rc: 


02 
FF78 


; Routine Size: 127 bytes, Routine Base: $CODE$ + 016 


3; Size: 494 code + 20 data bytes 
3; Run Time: 0:13.3 

; Elapsed Time: 0:32.1 

3; Lines/CPU Min: 4 

3 Lexemes/CPU-Min: 47094 

3 sonery Used: 110 pages 
3; Compilation Complete 


F 


a: 


OO7E 3$: 


11 
vou~000 RGH == write a Record Group Header to the binar 1b-Se-1964 94:85 388 


AX-11 at Ah ae 
RUNOFF .SRCJPUTNDX.BLI; 


R2, #2 
GCA+92 


; 389 0514 
: 390 0515 1 END 'End of module 

: 391 0516 0 ELUDOM 

; PSECT SUMMARY 

: Name Bytes Attributes 

: $PLITS 20 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

> SCODES 494 NOVEC.NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

3 Library Statistics 

Sse ee eee es Symbols -------- Pages Processing 

3 File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBIXPORT.L32;1 590 99 16 252 00:00.1 

; 7$255$DUA28: CRUNOFF .SRCJDSRLIB.L32;1 1248 16 1 Bs 00:00.3 

: COMMAND QUALIFIERS 

: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=L1S$:PUTNDX/OBJ=OBJ$:PUTNDX MSRC$:PUTNDX/UPDATE=(ENH$ : PUTNDX) 


Page 13 


(6) 


0506 


0513 


S52 


ENT CORPORATION 
ND PROPRIETARY 


P 
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